home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / MCSECURE.ZIP / _HASHCO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-25  |  3.8 KB  |  124 lines
  1. VERSION 4.00
  2. Begin VB.Form frmHashCoding 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Hash Coding"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   210
  7.    ClientTop       =   495
  8.    ClientWidth     =   6675
  9.    Height          =   4650
  10.    Left            =   150
  11.    LinkTopic       =   "frmHashCoding"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4245
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   150
  18.    Width           =   6795
  19.    Begin VB.TextBox Text1 
  20.       Height          =   285
  21.       Left            =   1350
  22.       TabIndex        =   3
  23.       Top             =   3510
  24.       Width           =   5235
  25.    End
  26.    Begin VB.ListBox List1 
  27.       Height          =   2955
  28.       Left            =   90
  29.       TabIndex        =   1
  30.       TabStop         =   0   'False
  31.       Top             =   360
  32.       Width           =   6495
  33.    End
  34.    Begin VB.Label Label4 
  35.       Appearance      =   0  'Flat
  36.       BackColor       =   &H80000005&
  37.       BorderStyle     =   1  'Fixed Single
  38.       ForeColor       =   &H80000008&
  39.       Height          =   285
  40.       Left            =   1350
  41.       TabIndex        =   5
  42.       Top             =   3870
  43.       Width           =   5235
  44.    End
  45.    Begin VB.Line Line1 
  46.       BorderColor     =   &H00FFFFFF&
  47.       BorderStyle     =   6  'Inside Solid
  48.       BorderWidth     =   2
  49.       X1              =   0
  50.       X2              =   6660
  51.       Y1              =   3420
  52.       Y2              =   3420
  53.    End
  54.    Begin VB.Label Label3 
  55.       Caption         =   "Hash coding is"
  56.       Height          =   195
  57.       Left            =   90
  58.       TabIndex        =   4
  59.       Top             =   3900
  60.       Width           =   1185
  61.    End
  62.    Begin VB.Label Label2 
  63.       Caption         =   "Enter a &string"
  64.       Height          =   195
  65.       Left            =   90
  66.       TabIndex        =   2
  67.       Top             =   3540
  68.       Width           =   1185
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Hash Coding Samples"
  72.       Height          =   195
  73.       Left            =   90
  74.       TabIndex        =   0
  75.       Top             =   90
  76.       Width           =   6495
  77.    End
  78. Attribute VB_Name = "frmHashCoding"
  79. Attribute VB_Creatable = False
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub Form_Load()
  83.    Dim i          As Integer
  84.    Dim Tmp1       As String
  85.    Dim Tmp2       As String
  86.    Dim Data       As String
  87.    Tmp1 = "Hash coding of '"
  88.    Tmp2 = "' is '"
  89.    List1.Clear
  90.    Data = "1"
  91.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  92.    Data = "12"
  93.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  94.    Data = "123"
  95.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  96.    Data = "1234"
  97.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  98.    Data = "12345"
  99.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  100.    Data = "123456"
  101.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  102.    Data = "1234567"
  103.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  104.    List1.AddItem ""
  105.    Data = "ABCDEFG"
  106.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  107.    Data = "ABCDEF"
  108.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  109.    Data = "ABCDE"
  110.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  111.    Data = "ABCD"
  112.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  113.    Data = "ABC"
  114.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  115.    Data = "AB"
  116.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  117.    Data = "A"
  118.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  119.    Text1.Text = "mc security"
  120. End Sub
  121. Private Sub Text1_Change()
  122.    Label4.Caption = cHashMD5(Text1.Text)
  123. End Sub
  124.